'(THIS IS THE LAP FOR (MACACK VLI DSK (VLI PG)))
'(COMPILED BY LISP COMPILER /708)
;COMPILED ON SEPTEMBER 29, 1978, AT 2:35 AM

(LAP ACK SUBR) 
(ARGS ACK (NIL . 2)) 
(PUSH P 1) 
(PUSH P 2) 
(MOVE 7 0 1) 
(JUMPN 7 G0002) 
(EXCH 1 2) 
(CALL 1 'ADD1) 
(JRST 0 G0001) 
G0002 
(MOVE 7 0 2) 
(JUMPN 7 G0004) 
(CALL 1 'SUB1) 
(MOVEI 2 '1) 
(CALL 2 'ACK) 
(JRST 0 G0001) 
G0004 
(CALL 1 'SUB1) 
(EXCH 1 2) 
(CALL 1 'SUB1) 
(EXCH 2 1) 
(PUSH P 1) 
(MOVE 1 -2 P) 
(CALL 2 'ACK) 
(MOVEI 2 0 1) 
(POP P 1) 
(CALL 2 'ACK) 
G0001 
(SUB P (% 0 0 2 2)) 
(POPJ P) 
NIL 


(LAP REV SUBR) 
(ARGS REV (NIL . 2)) 
(PUSH P 1) 
(PUSH P 2) 
(JUMPN 1 G0002) 
(MOVEI 1 0 2) 
(JSP T PDLNMK) 
(JRST 0 G0001) 
G0002 
(HLRZ 2 0 1) 
(MOVE 1 0 P) 
(JSP T PDLNMK) 
(JSP T %XCONS) 
(MOVEI 2 0 1) 
(HRRZ 1 @ -1 P) 
(CALL 2 'REV) 
G0001 
(SUB P (% 0 0 2 2)) 
(POPJ P) 
NIL 


(LAP LIN SUBR) 
(ARGS LIN (NIL . 2)) 
(PUSH P 1) 
(PUSH P 2) 
(JUMPN 1 G0002) 
(MOVEI 1 0 2) 
(JSP T PDLNMK) 
(JRST 0 G0001) 
G0002 
(LSH 1 -11) 
(SKIPGE 0 ST 1) 
(JRST 0 G0004) 
(MOVEI 1 0 2) 
(JSP T PDLNMK) 
(EXCH 2 1) 
(MOVE 1 -1 P) 
(JSP T PDLNMK) 
(JSP T %CONS) 
(JRST 0 G0001) 
G0004 
(HLRZ 1 @ -1 P) 
(PUSH P 1) 
(HRRZ 1 @ -2 P) 
(CALL 2 'LIN) 
(MOVEI 2 0 1) 
(POP P 1) 
(CALL 2 'LIN) 
G0001 
(SUB P (% 0 0 2 2)) 
(POPJ P) 
NIL 


(LAP ALT SUBR) 
(ARGS ALT (NIL . 3)) 
(PUSH P 1) 
(PUSH P 2) 
(PUSH P 3) 
(JSP T PDLNMK) 
(JUMPE 1 G0001) 
(MOVE 7 0 2) 
(SOJN 7 G0003) 
(HLRZ 1 @ -2 P) 
(PUSH P 1) 
(MOVEI 2 0 3) 
(HRRZ 1 @ -3 P) 
(CALL 3 'ALT) 
(POP P 2) 
(JSP T %XCONS) 
(JRST 0 G0001) 
G0003 
(MOVE 7 0 2) 
(SUBI 7 1) 
(PUSH FXP 7) 
(MOVEI 2 0 FXP) 
(HRRZ 1 @ -2 P) 
(CALL 3 'ALT) 
(SUB FXP (% 0 0 1 1)) 
G0001 
(SUB P (% 0 0 3 3)) 
(POPJ P) 
NIL 


(LAP LASTL SUBR) 
(ARGS LASTL (NIL . 1)) 
(PUSH P 1) 
(HRRZ 2 0 1) 
(JUMPE 2 G0002) 
(EXCH 1 2) 
(CALL 1 'LASTL) 
(JRST 0 G0001) 
G0002 
(HLRZ 1 0 1) 
(LSH 1 -11) 
(SKIPGE 0 ST 1) 
(JRST 0 G0006) 
(HLRZ 1 @ 0 P) 
(JRST 0 G0001) 
G0006 
(HLRZ 1 @ 0 P) 
(CALL 1 'LASTL) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
NIL